﻿Imports System.Data.SqlClient

Public Class UsuarioDAO

    Public Function listar() As DataTable
        Dim lista As New ArrayList

        Dim cn As New SqlConnection(ConexionBD.obtenerCadenaConexion())
        Dim da As New SqlDataAdapter("SELECT * FROM USUARIO", cn)

        Dim ds As New DataSet()
        da.Fill(ds, "USUARIO")

        Return ds.Tables("USUARIO")
        cn.Close()
    End Function

    Public Function validar(ByVal modelo As Usuario) As Usuario
        Dim usuario As New Usuario

        Try
            Dim cn As New SqlConnection(ConexionBD.obtenerCadenaConexion())
            cn.Open()

            Dim sql = "SELECT ID_USUARIO, CLAVE, NOMBRE, APELLIDO, CORREO, TELEFONO FROM USUARIO WHERE ID_USUARIO=@VALOR1 AND CLAVE=@VALOR2"
            Dim cmd As New SqlCommand(sql, cn)

            cmd.Parameters.AddWithValue("@VALOR1", modelo.idUsuario)
            cmd.Parameters.AddWithValue("@VALOR2", modelo.clave)

            Dim dr As SqlDataReader
            dr = cmd.ExecuteReader()
            If dr.Read Then
                usuario.idUsuario = dr(0).ToString
                usuario.clave = dr(1).ToString
                'usuario.nombre = dr(2).ToString
                'usuario.apellido = dr(3).ToString
                'usuario.correo = dr(4).ToString
                'usuario.telefono = dr(5).ToString
            Else
                Throw New DAOExcepcion("Usuario y/o clave incorrecto")
            End If

            dr.Close()
            cn.Close()

        Catch ex As SqlException
            Throw New DAOExcepcion(ex.ToString)
        End Try

        Return usuario
    End Function


End Class

